www.gusucode.com > Ajax 无限级导航菜单ASP+Access > Ajax 无限级导航菜单ASP+Access\code\conn.asp

    <%
dim conn,db : db = "#test.mdb"
if not isobject(Conn) then
       'On Error Resume Next
        connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
        Set conn = Server.CreateObject("adodb.Connection")
        conn.Open connstr 
        if Err Then Err.Clear : Set Conn = Nothing : Response.Write "系统升级中..........." : Response.End()
End If

Public Function connclose()
     conn.close : Set conn = nothing
End Function

Public Function connexe(byval esql)
	dim rs
	set rs = Server.createobject("adodb.recordset")
	rs.open esql,conn,1,1
		if not rs.eof then connexe = rs.getrows()
	rs.close : set rs = nothing
End Function
%>